set C to t & t & "2" & t & "3" & t & "4" & t & "5" & t & "6" & t & "7" & t & "8" & t & "7" & t & "8" & t & "7" & t & "8" & t & "7" & t & "8" & t & "7" & t & "8" & t & "7" & t & "6" & t & "5" & t & "4" & t & "3" & t & "2" & t & "1"
AnimBouton(C)
end
on Course
PlaySoundVide(1, "PUPPET", "Fusee")
updateStage()
set t to " N_Course"
set C to t & t & "2" & t & "3" & t & "4" & t & "5" & t & "6" & t & "7" & t & "8" & " N_Vide"
AnimBouton(C)
end
on SonMoins
global SprBoutBar, SprFondBar, CastBarrette, CastEfface
set NiveauVolume to the soundLevel
if NiveauVolume > 0 then
SetVolume(NiveauVolume - 1)
set GraphSound to the number of cast "SonMoins"
else
set GraphSound to the number of cast "N_LimitSon"
end if
if the castNum of sprite SprFondBar = CastBarrette then
set the castNum of sprite SprBoutBar to GraphSound
updateStage()
RestoreBoutBar()
end if
end
on SonPlus
global SprBoutBar, SprFondBar, CastBarrette, CastEfface
set NiveauVolume to the soundLevel
if NiveauVolume < 7 then
SetVolume(NiveauVolume + 1)
set GraphSound to the number of cast "SonPlus"
else
set GraphSound to the number of cast "N_LimitSon"
end if
if the castNum of sprite SprFondBar = CastBarrette then
set the castNum of sprite SprBoutBar to GraphSound
updateStage()
RestoreBoutBar()
end if
end
on Fusee
global SprFondBar, DcQuit, MemoNavPuce, NameExt, CastBarrette
if (MakeNomPropre(the movie) = "NAVIG") or (DcQuit = 1) or (word 1 of MemoNavPuce = "DEPART") then
exit
end if
PlaySound(1, "Puppet", "Fusee")
updateStage()
if the castNum of sprite SprFondBar = CastBarrette then
set t to " N_Fusee"
set C to t & t & "2" & t & "3" & t & "4" & t & "5" & t & "6" & t & "7" & t & "8" & " N_Vide"
AnimBouton(C)
RemetAnimBouton("N_Vide")
end if
GoMovie(":NAVIG")
end
on RetourNavig
global MemoNavPuce
PlayClick()
set AccuA to ":" & word 2 of MemoNavPuce
set AccuB to word 3 of MemoNavPuce
GoMovieRepere(AccuA, AccuB)
end
on Retour
global TypeBarrette, DcQuit, SprBoutBar, ColCastBar, CastEfface
if (char 14 of TypeBarrette <> "1") or (DcQuit = 1) then
exit
end if
PlayClick()
set the ink of sprite SprBoutBar to 0
set the locH of sprite SprBoutBar to ColCastBar * 40
set the castNum of sprite SprBoutBar to the number of cast "N_Retour"
updateStage()
RestoreBoutBar()
do(GestAvantRetour("Arriere", 1))
end
on Suite
global TypeBarrette, DcQuit, SprBoutBar, ColCastBar, CastEfface
if (char 16 of TypeBarrette <> "1") or (DcQuit = 1) then
exit
end if
PlayClick()
set the ink of sprite SprBoutBar to 0
set the locH of sprite SprBoutBar to ColCastBar * 40
set the castNum of sprite SprBoutBar to the number of cast "N_Suite"
updateStage()
RestoreBoutBar()
do(GestAvantRetour("Avant", 2))
end
on SautDePuce
global SprFondBar, DcQuit, MemoNavPuce, NameExt, CastBarrette, SprBoutBar, ColCastBar, CastEfface
if (the movieName = "NAVIG") or (DcQuit = 1) or (word 1 of MemoNavPuce = "DEPART") then
exit
end if
PlaySoundVide(1, "PUPPET", "Wizzz")
updateStage()
FalseReste()
if the castNum of sprite SprFondBar = CastBarrette then
set the ink of sprite SprBoutBar to 0
set the locH of sprite SprBoutBar to ColCastBar * 40
set the castNum of sprite SprBoutBar to the number of cast "N_SautDePuce"
updateStage()
RestoreBoutBar()
end if
set AccuA to word 6 of MemoNavPuce
if AccuA <> EMPTY then
do(AccuA)
end if
set AccuA to ":" & word 4 of MemoNavPuce
set AccuB to word 5 of MemoNavPuce
GoMovieRepere(AccuA, AccuB)
end
on AnimBouton Champs
global glQTmemo, SprBoutBar, SprFondBar
TestPresenceQT()
if getAt(glQTmemo, 1) <> 0 then
if the movieRate of sprite getAt(glQTmemo, 1) <> 0 then
exit
end if
end if
set the ink of sprite SprBoutBar to 0
set the locV of sprite SprBoutBar to the top of sprite SprFondBar - 5
set the locH of sprite SprBoutBar to the left of sprite SprFondBar + 111
AnimSpriteCast(SprBoutBar, 6, Champs)
RestoreBoutBar()
end
on RemetAnimBouton NomCastFin
global glQTmemo, SprBoutBar, SprFondBar
TestPresenceQT()
if getAt(glQTmemo, 1) <> 0 then
if the movieRate of sprite getAt(glQTmemo, 1) <> 0 then
exit
end if
end if
set the locV of sprite SprBoutBar to the top of sprite SprFondBar - 5
set the locH of sprite SprBoutBar to the left of sprite SprFondBar + 111
SetCastSprite(SprBoutBar, the number of cast NomCastFin)
updateStage()
end
on AnnuleAvantRetour
global listAvanrRetour
set listAvanrRetour to list()
end
on SetAvantRetour listPara
global listAvanrRetour
set listAvanrRetour to listPara
set listPara to list()
set Nbretest to count(listAvanrRetour) / 4
set Pz to 1
repeat with compt = 1 to Nbretest
set Far to getAt(listAvanrRetour, Pz)
if stringp(Far) then
setAt(listAvanrRetour, Pz, label(Far))
end if
set Fav to getAt(listAvanrRetour, Pz + 1)
if stringp(Fav) then
setAt(listAvanrRetour, Pz + 1, label(Fav))
end if
set Pz to Pz + 4
end repeat
addAt(listAvanrRetour, 1, Nbretest)
end
on GestAvantRetour NomMacro, operande
global listAvanrRetour
if (listAvanrRetour = list()) or voidp(listAvanrRetour) then
return NomMacro
end if
set NumFrame to the frame
set Pz to 2
repeat with compt = 1 to getAt(listAvanrRetour, 1)
if getAt(listAvanrRetour, Pz) < NumFrame then
if getAt(listAvanrRetour, Pz + 1) > NumFrame then
set NomMacro to getAt(listAvanrRetour, Pz + 1 + operande)
